home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 8
/
Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso
/
Aminet
/
comm
/
fido
/
Rock_1_5.lha
/
ROCK
/
addrcheck.rexx
next >
Wrap
OS/2 REXX Batch file
|
1995-05-11
|
526b
|
26 lines
/*
Rock v1.5 - Fidonet mailer for point systems
Copyright (C) 1995 Jean-Marc Xiume'
This software is distributed under the terms of the
GNU General Public License. Read "license.doc" for more details.
**************** Check if the given address is valid ****************
*/
options results
options failat 99
Parse upper arg address .
parse var address a.1 ":" a.2 "/" a.3 "." a.4 .
if a.4="" then a.4=0
do i=1 to 4
if ~datatype(a.i,'w') then do
exit 1
end
end
exit 0